      SUBROUTINE TIMELOG(N,TIMEDAY)  
      INTEGER::N
      REAL::TIMEDAY
      CHARACTER*8 MRMDATE,MRMTIME*10
C  
C WRITE OUT MODEL TIME STEP AND SUN/PC SYSTEM CLOCK TIME TO TIME.LOG FIL  
C  
      ! *** WRITE OUT MODEL TIME STEP AND SYSTEM CLOCK TIME TO TIME.LOG  
      CALL DATE_AND_TIME(MRMDATE,MRMTIME)
      OPEN(9,FILE='TIME.LOG',POSITION='APPEND')
      WRITE(9,100)N,TIMEDAY,MRMDATE,MRMTIME
      CLOSE(9)
  100 FORMAT(' ','N =',I10,5X,'TIMEDAY = ',F12.4,5X,'DATE = ',A8,  
     &    5X,'TIME = ',A10)  
      RETURN  
      END  
 
